Option Explicit
Sub C_Sample022()
    Dim myRng As Range
    Set myRng = Range("A1:A3")				'Nxs
    On Error Resume Next
    Names("NewName").Delete 				'RJsۦPW
    On Error GoTo 0
    'ǳƨ즹
    Names.Add Name:="NewName", RefersTo:=myRng	'W٪]w
    [NewName].Select
    Set myRng = Nothing						'
End Sub
